home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / m / movie_shop / movieshop1.dms / movieshop1.adf / Install-MovieShop next >
Text File  |  1994-12-23  |  31KB  |  994 lines
  1. ; ************************************************
  2. ; *
  3. ; * Install-MovieShop
  4. ; *
  5. ; * $VER: Install-MovieShop 2.0 (27.11.94)
  6. ; *
  7. ; * This is the installation script for VLAB-Motion.
  8. ; *
  9. ; * Copyright © 1994 MS MacroSystem Computer GmbH
  10. ; * All Rights Reserved
  11. ; *
  12. ; * written by Claus Bönnhoff
  13. ; *
  14. ; ************************************************
  15.  
  16. ; ********************************
  17. ; * Set up some global variables.
  18. ; ********************************
  19. ;
  20.  
  21. (set ProductName  "VLab-Motion")
  22. (set MovieShop    "MovieShop")
  23. (set Toccata      "Toccata")
  24. (set Retina       "Retina")
  25. (set VMInit       "VMInit")
  26. (set ReSel        "ReSelection")
  27. (set Operator     "Operator")
  28.  
  29. (set OSVersion    (/ (getversion) 65536))
  30. (set Locale       (exists "libs:locale.library" (noreq)))
  31. (set TotalFiles   0)
  32. (set ActualFiles  0)
  33.  
  34. (set DirPath (@default-dest))
  35. (set MovieDirPath (tackon (@default-dest) "VMTools"))
  36.  
  37. ; ****************************
  38. ; * Set up some messages.
  39. ; ****************************
  40. ;
  41.  
  42. (if (patmatch @language "deutsch")
  43. ; german language
  44.   (
  45.    (set language 2)
  46.    (set MSG_DEVELOPER         "Entwickler")
  47.    (set MSG_SELECTPARTS       ("Bitte wählen Sie welche Teile der %s Software installiert werden sollen." ProductName))
  48.    (set HLP_SELECTPARTS1       (cat ("Dieser Teil der Installation läßt Sie entscheiden, welche Teile ")
  49.                                ("der %s Software sie auf Ihrer Festplatte installieren möchten.\n" ProductName)
  50.                                ("\n")))
  51.    (set HLP_SELECTPARTS2      (cat ("*** %s\n" MovieShop)
  52.                               ("Dieser Teil beinhaltet das Hauptprogramm, mit welchem Sie ")
  53.                               ("mit der %s Videos aufzeichnen, bearbeiten und " ProductName)
  54.                               ("wieder abspielen können.\n")
  55.                               ("\n")))
  56.    (set HLP_SELECTPARTS3      (cat ("*** %s\n" Toccata)
  57.                               ("Dieser Teil beinhaltet alle notwendigen Programme und Dateien ")
  58.                               ("um mit %s gleichzeitig Bild und Ton aufnehmen zu können. \n" MovieShop)
  59.                               ("Dies ist aber nur sinnvoll, wenn Sie eine %s besitzen.\n" Toccata)
  60.                               ("\n")))
  61.    (set HLP_SELECTPARTS4      (cat ("*** %s\n" Retina)
  62.                               ("Dieser Teil beinhaltet alle notwendigen Programme und Dateien ")
  63.                               ("um mit %s die Vorteile der Retina-Grafikarte (24Bit Workbench) " MovieShop)
  64.                               ("nutzen zu können.\n")
  65.                               ("Dies ist aber nur sinnvoll, wenn Sie eine %s-Grafikkarte besitzen.\n" Retina)
  66.                               ("\n")))
  67.    (set HLP_SELECTPARTS6      (cat ("*** %s\n" VMInit)
  68.                               ("Dieses Programm ermöglicht es Ihnen die VLab-Motion sofort nach dem Start ")
  69.                               ("oder einem Reset des Rechners so zu initialisieren, daß sie das anliegende ")
  70.                               ("Videosignal durchschleift. Es empfiehlt sich das Programm direkt in den ")
  71.                               ("WBStartup-Ordner zu installieren, damit die VLab-Motion immer nach dem Starten ")
  72.                               ("Ihres Rechners initialisiert ist.\n")
  73.                               ("Wie sie das Programm starten entnehmen sie bitte dem Handbuch.\n")
  74.                               ("\n")))
  75.    (set HLP_SELECTPARTS7      (cat ("*** %s\n" ReSel)
  76.                               ("Dieses kleine Programm ermöglicht es Ihnen zu unterbinden, daß während Ihre Festplatte ")
  77.                               ("einen Datenstrom schreibt sie durch einen anderen Schreibzugriff unterbrochen wird.\n")
  78.                               ("Dadurch ist es der VLab-Motion möglich kontinuirlicher auf die Festplatte ")
  79.                               ("zuzugreifen und es werden höhere Datenraten und damit Bildqualitäten erreicht. ")
  80.                               ("Wie sie das Programm starten entnehmen sie bitte dem Handbuch.\n")
  81.                               ("\n")))
  82.    (set HLP_SELECTPARTS8      (cat ("*** %s\n" Developer)
  83.                               ("Dieser Teil installiert alle notwendigen Dateien, um die %s " ProducName)
  84.                               ("selber programmieren zu können. Unterstützt werden hierbei die ")
  85.                               ("Programmiersprachen \"C\" und \"Assembler\".")
  86.                               ("\n")))
  87.    (set HLP_SELECTPARTS9      (cat ("*** %s\n" Operator)
  88.                               ("Dieser Teil installiert die Effekt-Operatoren, die Sie benötigen, um")
  89.                               ("mit MovieShop digitale Effekte machen zu können.")
  90.                               ("\n")))
  91.    (set HLP_SETDIRPATH        (cat "Wenn Sie mit dem Installer ein Verzeichnis anlegen, ist es "
  92.                               ("sehr sinnvoll, daß sie in den Namen kein Leerzeichen einfügen. ")
  93.                               ("Dieses erleichtert den späteren Umgang, besonders beim Arbeiten ")
  94.                               ("in der Shell und mit AREXX.\n")))
  95.    (set HLP_COPYLIB           ("Wenn bereits eine Library mit diesem Namen besteht, so wird"
  96.                               "diese nur überschrieben, wenn sie eine ältere Version ist.\n"))
  97.    (set MSG_FALSEOSVERSION    ("%s benötigt unbedingt AmigaOS 2.04 oder höher.\n" MovieShop))
  98.    (set MSG_MOVIESHOPPATH     "Geben Sie bitte das Zielverzeichnis für MovieShop an...")
  99.    (set MSG_RETINAPATH        "Geben Sie bitte das Zielverzeichnis für die Retina Hilfsprogramme an...")
  100.    (set MSG_MACROPATH         "Geben Sie bitte das Zielverzeichnis für die MovieShop Macro Datei an...")
  101.    (set MSG_VMINITPATH        "Geben Sie bitte das Zielverzeichnis für das VMInit-Programm an...")
  102.    (set MSG_RESELPATH         "Geben Sie bitte das Zielverzeichnis für das ReSelection-Programm an...")
  103.    (set MSG_DEVELOPERPATH     "Geben Sie bitte das Zielverzeichnis für die VLab-Motion Entwickler Dateien an...")
  104.    (set MSG_OPERATORPATH      "Geben Sie bitte das Zielverzeichnis für die VLab-Motion Effekt-Operatoren an...")
  105.    (set MSG_GETMOVIESHOPDISK  "Bitte legen Sie die Diskette mit dem Namen \"MovieShop\" in ein beliebiges Laufwerk")
  106.    (Set HLP_GETMOVIESHOPDISK  (cat MSG_GETMOVIESHOPDISK "\nIch benötige diese Diskette, um die Installation vornehmen zu können!\n"))
  107.    (set MSG_COPYLIB           "Kopiere Library %s nach %s...")
  108.    (set HLP_COPYLIB           "MovieShop benötigt diese Library um richtig arbeiten zu können.\n")
  109.    (set MSG_COPYFILE          "Kopiere Datei %s nach %s...")
  110.    (set HLP_COPYFILE          "MovieShop benötigt diese Datei um richtig arbeiten zu können\n")
  111.    (set MSG_INSTALLVMINIT     "Wollen sie, daß das Programm VMInit auch in Ihre WBStartup kopiert wird ?")
  112.    (set HLP_INSTALLVMINIT     (cat "Wenn Sie das Programm VMInit auch in Ihre WBStartup kopieren lassen, dann "
  113.                               ("ist die VLab-Motion nach dem Starten Ihreres Rechners sofort initialisiert.\n")
  114.                               ("\n")))
  115.   )
  116. ; default language
  117.   (
  118.    (set language 4)
  119.    (set MSG_DEVELOPER         "Developer")
  120.    (set MSG_SELECTPARTS       ("Select the parts of the %s package you want to install at this time." ProductName))
  121.    (set HLP_SELECTPARTS1      (cat ("This part of the installation lets you select the parts of the MovieShop ")
  122.                               ("package you want to install at this time.\n")
  123.                               ("\n")))
  124.    (set HLP_SELECTPARTS2      (cat ("*** %s\n" MovieShop)
  125.                               ("This option lets you install the MovieShop program. With this program ")
  126.                               ("you will do the main work on your VLab-Motion. It is an non linear video ")
  127.                               ("and audio editing system.\n")
  128.                               ("\n")))
  129.    (set HLP_SELECTPARTS3      (cat ("*** %s\n" Toccata)
  130.                               ("This option lets you install the new Toccata tools which are required ")
  131.                               ("if you want to edit video and audio simultaniosly.\n")
  132.                               ("This is only useful if you own a Toccata stereo audio digitizer card.\n")
  133.                               ("\n")))
  134.    (set HLP_SELECTPARTS4      (cat ("*** %s\n" Retina)
  135.                               ("This option lets you install the new Retina libraries which are required ")
  136.                               ("if you want to run MovieShop on an 16 or 24 bit deep Screen.\n")
  137.                               ("This is only useful if you own a Retina grafic accelerator card.\n")
  138.                               ("\n")))
  139.    (set HLP_SELECTPARTS6      (cat ("*** %s\n" VMInit)
  140.                               ("This program lets you initialize the VLab-Motion hardware without starting ")
  141.                               ("the MovieShop program. It is useful to copy this to your WBStartup drawer, so ")
  142.                               ("the VLab-Motion will be initialized every time you startup your computer.\n")
  143.                               ("For information about starting this programm please refer to your manual.\n")
  144.                               ("\n")))
  145.    (set HLP_SELECTPARTS7      (cat ("*** %s\n" ReSel)
  146.                               ("This little utility lets you disable the reselection of your hardrive. ")
  147.                               ("Doing this, the VLab-Motion will have faster access to the drive and this will ")
  148.                               ("increase your video quality.\n")
  149.                               ("For information about starting this programm please refer to your manual.\n")
  150.                               ("\n")))
  151.    (set HLP_SELECTPARTS8      (cat ("*** %s\n" Developer)
  152.                               ("This option lets you install all needed files for programing the VLab-Motion hardware ")
  153.                               ("yourself.\n")
  154.                               ("\n")))
  155.    (set HLP_SELECTPARTS9      (cat ("*** %s\n" Operator)
  156.                               ("This option lets you install all the effect operator you need to")
  157.                               ("to make digital effects with MovieShop")
  158.                               ("\n")))
  159.    (set HLP_SETDIRPATH        (cat "NOTE: If you will using the Installer program's "
  160.                               ("function to create a new directory using \"Make New Drawer...\"")
  161.                               ("it is highly recommended that you DO NOT include ")
  162.                               ("spaces in the drawer name.  Following this advice ")
  163.                               ("will avoid any problems accessing the directory, ")
  164.                               ("especially from ARexx scripts.\n\n")))
  165.    (set HLP_COPYLIB           (cat "If you already have a copy of this library in the selected destination directory, the library "
  166.                               ("included on the distribution disk will be compared to the one you ")
  167.                               ("already have. If your current library is an old version, the newer ")
  168.                               ("version will be installed.\n")))
  169.    (set MSG_FALSEOSVERSION    (cat ("\%s version %s requires at least AmigaOS 2.04 to run.\n" ProductName VersionNum)
  170.                               ("\n")
  171.                               ("Press the Proceed button to stop the installation procedure.\n")))
  172.    (set MSG_MOVIESHOPPATH     ("Please select the directory for the MovieShop program..."))
  173.    (set MSG_RETINAPATH        ("Please select the directory for the Retina Utilities..."))
  174.    (set MSG_VMINITPATH        ("Please select the directory for the VMInit program ..."))
  175.    (set MSG_RESELPATH         ("Please select the directory for the ReSelection program..."))
  176.    (set MSG_DEVELOPERPATH     ("Please select the directory for the VLab-Motion developer files..."))
  177.    (set MSG_OPERATORPATH      ("Please select the directory for the VLab-Motion operator files..."))
  178.    (set MSG_GETMOVIESHOPDISK  "Please insert disk \"MovieShop\" in any drive...")
  179.    (Set HLP_GETMOVIESHOPDISK  (cat MSG_GETMOVIESHOPDISK "\nI need this disk to completly install your programs.\n"))
  180.    (set MSG_COPYLIB           "Copying library %s to %s...")
  181.    (set HLP_COPYLIB           "MovieShop needs this library.\n")
  182.    (set MSG_COPYFILE          "Copying file %s to %s...")
  183.    (set HLP_COPYFILE          "MovieShop needs this file.\n")
  184.    (set MSG_INSTALLVMINIT     "Do you want VMInit to be installed in your WBStartup ?")
  185.    (set HLP_INSTALLVMINIT     (cat "If you install VMInit in your WBStartup, the VLab-Motion is initialized"
  186.                               ("directly after starting your computer.")
  187.                               ("\n")))
  188.   )
  189. )
  190.  
  191. (procedure ChooseParts
  192. ;
  193. ; ****************************
  194. ; * Ask the user which parts of the package should be installed.
  195. ; ****************************
  196. ;
  197.    (
  198.    (set Parts
  199.       (askoptions
  200.          (prompt
  201.             (MSG_SELECTPARTS)
  202.          )
  203.          (help
  204.             (HLP_SELECTPARTS1)
  205.             (HLP_SELECTPARTS9)
  206.             (HLP_SELECTPARTS2)
  207.             (HLP_SELECTPARTS3)
  208.             (HLP_SELECTPARTS4)
  209.             (HLP_SELECTPARTS6)
  210.             (HLP_SELECTPARTS7)
  211.             @askoptions-help
  212.          )
  213.          (default 51)
  214.          (choices
  215.             ; bit position 0 -- todo & 1
  216.             ;
  217.             ("%s" MovieShop)
  218.  
  219.             ; bit position 1 -- todo & 2
  220.             ;
  221.             ("%s" Operator)
  222.  
  223.             ; bit position 1 -- todo & 4
  224.             ;
  225.             ("%s" Toccata)
  226.  
  227.             ; bit position 2 -- todo & 8
  228.             ;
  229.             ("%s" Retina)
  230.  
  231.             ; bit position 3 -- todo & 16
  232.             ;
  233.             ("%s" VMInit)
  234.  
  235.             ; bit position 4 -- todo & 32
  236.             ;
  237.             ("%s" ReSel)
  238.          )
  239.       )
  240.    )
  241.    )
  242. )
  243.  
  244. (procedure SetDirPath
  245.  
  246. ; ****************************
  247. ; * Ask the user for a directory name.
  248. ; ****************************
  249. ;
  250. ; these variables must be defined before calling this procedure:
  251. ;
  252. ;    DirPathTitle
  253. ;    DirPathHelp
  254. ;    DirPath
  255. ;
  256. ; this procedure returns the selected directory in DirPath
  257.  
  258.    (if (= (exists DirPath) 0)
  259.       (
  260.       (set DirPath
  261.          (askdir
  262.             (prompt DirPathTitle)
  263.             (help DirPathHelp @askdir-help)
  264.             (newpath DirPath)
  265.             (default DirPath)
  266.          )
  267.       )
  268.       )
  269.       (
  270.       (set DirPath
  271.          (askdir
  272.             (prompt DirPathTitle)
  273.             (help DirPathHelp @askdir-help)
  274.             (default DirPath)
  275.          )
  276.       )
  277.       )
  278.    )
  279.    (if (= (exists DirPath) 0)
  280.       (makedir DirPath)
  281.       (set moveon TRUE)
  282.    )
  283. )
  284.  
  285. (procedure CopyLibFile
  286.  
  287. ; ****************************
  288. ; * Copy the specific library file to the LIBS: directory.
  289. ; ****************************
  290. ;
  291. ; these variables must be defined before calling this procedure:
  292. ;
  293. ;    CopyLibFileName
  294. ;    CopyLibFilePath
  295. ;    DirPath
  296.  
  297.  
  298. ;
  299. ; workaround for bug in copylib
  300. ;
  301.  
  302.    (if (= (exists (tackon "Libs:" CopyLibFileName)) 1)
  303.       (
  304.          (set vernum (getversion (tackon "Libs:" CopyLibFileName)))
  305.          (set ver1 (/ vernum 65536))
  306.          (set rev1 (- vernum (* ver1 65536)))
  307.  
  308.          (set vernum (getversion (tackon CopyLibFilePath CopyLibFileName)))
  309.          (set ver2 (/ vernum 65536))
  310.          (set rev2 (- vernum (* ver2 65536)))
  311.       )
  312.       (
  313.          (set ver1 0)
  314.          (set rev1 0)
  315.          (set ver2 1)
  316.          (set rev2 1)
  317.       )
  318.    )
  319.  
  320.    (set doit 0)
  321.    (if (< ver1 ver2)
  322.       (
  323.          (set doit 1)
  324.       )
  325.       (
  326.          (if (= ver1 ver2)
  327.             (
  328.                (if (< rev1 rev2)
  329.                   (
  330.                      (set doit 1)
  331.                   )
  332.                )
  333.             )
  334.          )
  335.       )
  336.    )
  337.  
  338.    (if (= doit 1)
  339.       (
  340.          (if (= (exists (tackon DirPath CopyLibFileName)) 1)
  341.             (
  342.                (protect (tackon DirPath CopyLibFileName) "+rwed")
  343.             )
  344.          )
  345.          (copylib
  346.             (prompt  (MSG_COPYLIB CopyLibFileName DirPath))
  347.             (help MSG_COPYLIB @copylib-help)
  348.             (source (tackon CopyLibFilePath CopyLibFileName))
  349.                (dest DirPath)
  350.                (confirm)
  351.          )
  352.       )
  353.    )
  354. )
  355.  
  356. (procedure IncrementMeter
  357. ;
  358. ; ****************************
  359. ; * Set the Percent indicator.
  360. ; ****************************
  361. ;
  362. ;    AddToMeter
  363.  
  364.    (
  365.    (set PctDone   (/ (* ActualFiles 100) TotalFiles))
  366.    (set ActualFiles  (+ ActualFiles AddToMeter))
  367.    (complete PctDone)
  368.    )
  369. )
  370.  
  371.  
  372. (procedure InstallMovieShop
  373. ;
  374. ; ****************************
  375. ; * Install all MovieShop files
  376. ; ****************************
  377. ;
  378.  
  379.    (set existsrc (getassign "MovieShop" "v"))
  380.    (if (= existsrc "")
  381.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  382.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  383.                (dest "MovieShop")
  384.       )
  385.    )
  386.  
  387.    (Set DirPath (tackon @default-dest "MovieShop"))
  388.    (Set DirPathTitle MSG_MOVIESHOPPATH)
  389.    (Set DirPathHelp  HLP_SETDIRPATH)
  390.    (SetDirPath)
  391.  
  392.    (set MovieDirPath (DirPath))
  393.  
  394.    (set AddToMeter   1)
  395.    (IncrementMeter)
  396.  
  397.    (if (= Locale 1)
  398.       (
  399. ;
  400. ; locale is installed
  401. ;
  402.          (if (= language 2)
  403. ;
  404. ; german language
  405. ;
  406.             (if (= (exists "Locale:Catalogs/deutsch") 2)
  407.                (
  408.                   (copyfiles
  409.                      (prompt (MSG_COPYFILE "movieshop.catalog" "Locale:catalogs/deutsch/"))
  410.                      (help MSG_COPYFILE @copyfiles-help)
  411.                      (source "MovieShop:MovieShop/movieshop.catalog")
  412.                      (dest "Locale:Catalogs/deutsch")
  413.                      (files)
  414.                      (optional fail force)
  415.                   )
  416.                )
  417.                (
  418.                   (copyfiles
  419.                      (prompt (MSG_COPYFILE "movieshop.catalog" DirPath))
  420.                      (help MSG_COPYFILE @copyfiles-help)
  421.                      (source "MovieShop:MovieShop/movieshop.catalog")
  422.                      (dest DirPath)
  423.                      (files)
  424.                      (optional fail force)
  425.                   )
  426.                )
  427.             )
  428.          )
  429.       )
  430.       (
  431.          (if (= language 2)
  432.             (
  433. ;
  434. ; minloc.library will be installed
  435. ;
  436.                (copyfiles
  437.                   (prompt (MSG_COPYFILE movieshop.catalog DirPath))
  438.                   (help MSG_COPYFILE @copyfiles-help)
  439.                   (source ("MovieShop:MovieShop/movieshop.catalog"))
  440.                   (dest DirPath)
  441.                   (files)
  442.                   (optional fail force)
  443.                )
  444.                (set OldDirPath DirPath)
  445.                (set DirPath "Libs:")
  446.                (set CopyLibFilePath "MovieShop:MovieShop")
  447.                (set CopyLibFileName "minloc.library")
  448.                (CopyLibFile)
  449.                (set DirPath OldDirPath)
  450.                (textfile (prompt MSG_CreateMLL)
  451.                          (help HLP_CreateMLL)
  452.                          (dest "ENVARC:MINLOCLANGUAGE")
  453.                          (append "deutsch\n")
  454.                )
  455.             )
  456.          )
  457.       )
  458.    )
  459.  
  460.    (set AddToMeter   2)
  461.    (IncrementMeter)
  462.  
  463. ;
  464. ; install main Programm
  465. ;
  466.  
  467.    (copyfiles
  468.       (prompt (MSG_COPYFILE "MovieShop" DirPath))
  469.       (help MSG_COPYFILE @copyfiles-help)
  470.       (source ("MovieShop:MovieShop/MovieShop"))
  471.       (dest DirPath)
  472.       (infos)
  473.       (files)
  474.       (optional fail force)
  475.    )
  476.  
  477.    (set AddToMeter   1)
  478.    (IncrementMeter)
  479.  
  480. ;
  481. ; install VJPEG
  482. ;
  483.  
  484.    (copyfiles
  485.       (prompt (MSG_COPYFILE "vjpeg" DirPath))
  486.       (help MSG_COPYFILE @copyfiles-help)
  487.       (source ("MovieShop:MovieShop/vjpeg"))
  488.       (dest DirPath)
  489.       (files)
  490.       (optional fail force)
  491.    )
  492.  
  493.    (set AddToMeter   1)
  494.    (IncrementMeter)
  495.  
  496. ;
  497. ; install autoupdate
  498. ;
  499.  
  500.  
  501.    (if (= (exists "libs:vmotion.library") 0)
  502.       (
  503.          (if (= (exists "MovieShop:MovieShop/MovieShop.autoupdate") 1)
  504.          (
  505.             (copyfiles
  506.                (prompt (MSG_COPYFILE "MovieShop.autoupdate" DirPath))
  507.                (help MSG_COPYFILE @copyfiles-help)
  508.                (source ("MovieShop:MovieShop/MovieShop.autoupdate"))
  509.                (dest DirPath)
  510.                (files)
  511.                (optional fail force)
  512.             )
  513.          )
  514.          )
  515.       )
  516.    )
  517.  
  518.    (set AddToMeter   1)
  519.    (IncrementMeter)
  520.  
  521. ;
  522. ; make all needed drawers
  523. ;
  524.  
  525.    (makedir (tackon DirPath "Macros"))
  526.  
  527. ;
  528. ; install Macros
  529. ;
  530.  
  531.    (copyfiles
  532.       (prompt (MSG_COPYFILE "Macros" (tackon DirPath "Macros")))
  533.       (help MSG_COPYFILE @copyfiles-help)
  534.       (source ("MovieShop:Macros/"))
  535.       (pattern "#?")
  536.       (dest (tackon DirPath "Macros"))
  537.       (files)
  538.       (optional fail force)
  539.    )
  540.  
  541.    (set AddToMeter   1)
  542.    (IncrementMeter)
  543.  
  544. ;
  545. ; install default prefs
  546. ;
  547.  
  548.    (makedir "ENVARC:MovieShop")
  549.  
  550.    (if (= (exists "ENVARC:MovieShop/MovieShop.prefs") 0)
  551.       (
  552.          (copyfiles
  553.             (prompt (MSG_COPYFILE "movieshop.prefs" "ENVARC:MovieShop/"))
  554.             (help MSG_COPYFILE @copyfiles-help)
  555.             (source ("MovieShop:MovieShop/MovieShop.prefs"))
  556.             (dest "ENVARC:MovieShop/")
  557.             (files)
  558.             (optional fail force)
  559.          )
  560.      (if (= (exists "ENV:MovieShop") 0)
  561.          (
  562.              (makedir ("ENV:MovieShop"))
  563.          )
  564.      )     
  565.          (copyfiles
  566.             (prompt (MSG_COPYFILE "movieshop.prefs" "ENV:MovieShop/"))
  567.             (help MSG_COPYFILE @copyfiles-help)
  568.             (source ("MovieShop:MovieShop/MovieShop.prefs"))
  569.             (dest "ENV:MovieShop/")
  570.             (files)
  571.             (optional fail force)
  572.          )
  573.       )
  574.    )
  575.  
  576.    (set AddToMeter   1)
  577.    (IncrementMeter)
  578.  
  579. ;
  580. ; install macros
  581. ;
  582.  
  583.    (if (= (exists "ENVARC:MovieShop/MovieShop.macros") 0)
  584.       (
  585.          (copyfiles
  586.             (prompt (MSG_COPYFILE "MovieShop.macros" "ENVARC:MovieShop/"))
  587.             (help MSG_COPYFILE @copyfiles-help)
  588.             (source ("MovieShop:MovieShop/movieshop.macros"))
  589.             (dest ("EnvArc:MovieShop/"))
  590.             (files)
  591.             (optional fail force)
  592.          )
  593.       )
  594.    )
  595.  
  596.    (set AddToMeter   1)
  597.    (IncrementMeter)
  598.  
  599. ;
  600. ; install default icons
  601. ;
  602.  
  603.    (copyfiles
  604.       (prompt (MSG_COPYFILE "Icons" "ENVARC:MovieShop/"))
  605.       (help MSG_COPYFILE @copyfiles-help)
  606.       (source ("MovieShop:MovieShop/"))
  607.       (dest "ENVARC:MovieShop/")
  608.       (files)
  609.       (pattern "def_#?")
  610.       (optional fail force)
  611.    )
  612.  
  613.    (set AddToMeter   1)
  614.    (IncrementMeter)
  615.  
  616. ;
  617. ; finaly all needed library
  618. ;
  619.  
  620.    (set CopyLibFilePath "MovieShop:MovieShop")
  621.    (set DirPath "Libs:")
  622.  
  623.    (set CopyLibFileName "vmotion.library")
  624.    (CopyLibFile)
  625.    (set AddToMeter   1)
  626.    (IncrementMeter)
  627.    (set CopyLibFileName "motioneffect.library")
  628.    (CopyLibFile)
  629.    (set AddToMeter   1)
  630.    (IncrementMeter)
  631.    (set CopyLibFileName "multipic.library")
  632.    (CopyLibFile)
  633.    (set AddToMeter   1)
  634.    (IncrementMeter)
  635.    (set CopyLibFileName "pfile.library")
  636.    (CopyLibFile)
  637.    (set AddToMeter   1)
  638.    (IncrementMeter)
  639.    (set CopyLibFileName "asl.library")
  640.    (CopyLibFile)
  641.    (set AddToMeter   1)
  642.    (IncrementMeter)
  643. )
  644.  
  645. (procedure InstallOperator
  646. ;
  647. ; *****************************
  648. ; * Install all effect operator
  649. ; *****************************
  650. ;
  651.    (set existsrc (getassign "MovieShop" "v"))
  652.    (if (= existsrc "")
  653.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  654.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  655.                (dest "MovieShop")
  656.       )
  657.    )
  658.  
  659.    (Set DirPath (tackon MovieDirPath "Operators"))
  660.    (Set DirPathTitle MSG_OPERATORPATH)
  661.    (Set DirPathHelp  HLP_SETDIRPATH)
  662.    (SetDirPath)
  663.  
  664.    (copyfiles
  665.       (prompt (MSG_COPYFILE "Operators" DirPath))
  666.       (help MSG_COPYFILE @copyfiles-help)
  667.       (source "MovieShop:Operators/")
  668.       (pattern "#?")
  669.       (dest DirPath)
  670.       (files)
  671.       (optional fail force)
  672.    )
  673.    (set AddToMeter 25)
  674.    (IncrementMeter)
  675. )
  676.  
  677. (procedure InstallToccata
  678. ;
  679. ; ****************************
  680. ; * Install all Toccata files
  681. ; ****************************
  682. ;
  683.  
  684.    (set existsrc (getassign "MovieShop" "v"))
  685.    (if (= existsrc "")
  686.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  687.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  688.                (dest "MovieShop")
  689.       )
  690.    )
  691.  
  692.    (set AddToMeter   1)
  693.    (IncrementMeter)
  694.  
  695.    (set CopyLibFilePath "MovieShop:Toccata")
  696.    (set DirPath "Libs:")
  697.  
  698.    (set CopyLibFileName "toccata.library")
  699.    (CopyLibFile)
  700.  
  701.    (set AddToMeter   1)
  702.    (IncrementMeter)
  703. )
  704.  
  705. (procedure InstallRetina
  706. ;
  707. ; ****************************
  708. ; * Install all Retina files
  709. ; ****************************
  710. ;
  711.  
  712.    (set existsrc (getassign "MovieShop" "v"))
  713.    (if (= existsrc "")
  714.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  715.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  716.                (dest "MovieShop")
  717.       )
  718.    )
  719.  
  720.    (set AddToMeter   1)
  721.    (IncrementMeter)
  722.  
  723. ;
  724. ; install retina.library
  725. ;
  726.  
  727.    (set CopyLibFilePath "MovieShop:Retina")
  728.    (set DirPath "Libs:")
  729.  
  730.    (set CopyLibFileName "retina.library")
  731.    (CopyLibFile)
  732.    (set AddToMeter   1)
  733.    (IncrementMeter)
  734.    (set CopyLibFileName "retinaemu.library")
  735.    (CopyLibFile)
  736.    (set AddToMeter   1)
  737.    (IncrementMeter)
  738. )
  739.  
  740. (procedure InstallVMInit
  741. ;
  742. ; ****************************
  743. ; * Install VMInit
  744. ; ****************************
  745. ;
  746.    (set existsrc (getassign "MovieShop" "v"))
  747.    (if (= existsrc "")
  748.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  749.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  750.                (dest "MovieShop")
  751.       )
  752.    )
  753.  
  754.    (Set DirPath (MovieDirPath))
  755.    (Set DirPathTitle MSG_VMINITPATH)
  756.    (Set DirPathHelp  HLP_SETDIRPATH)
  757.    (SetDirPath)
  758.  
  759.    (set AddToMeter   1)
  760.    (IncrementMeter)
  761.  
  762.    (copyfiles
  763.       (prompt (MSG_COPYFILE "VMInit" DirPath))
  764.       (help MSG_COPYFILE @copyfiles-help)
  765.       (source ("MovieShop:Tools/VMInit"))
  766.       (dest DirPath)
  767.       (files)
  768.       (infos)
  769.       (optional fail force)
  770.    )
  771.  
  772.    (set AddToMeter   2)
  773.    (IncrementMeter)
  774.  
  775.    (if (askbool
  776.          (prompt MSG_INSTALLVMINIT)
  777.          (help   HLP_INSTALLVMINIT)
  778.        )
  779.     (
  780.          (copyfiles
  781.             (prompt (MSG_COPYFILE "VMInit" "SYS:WBStartup"))
  782.             (help MSG_COPYFILE @copyfiles-help)
  783.             (source ("MovieShop:Tools/VMInit"))
  784.             (dest "SYS:WBStartup")
  785.             (infos)
  786.             (files)
  787.             (optional fail force)
  788.          )
  789.     )
  790.    )
  791.  
  792.    (set AddToMeter   1)
  793.    (IncrementMeter)
  794. )
  795.  
  796. (procedure InstallReSel
  797. ;
  798. ; ****************************
  799. ; * Install ReSel
  800. ; ****************************
  801. ;
  802.    (set existsrc (getassign "MovieShop" "v"))
  803.    (if (= existsrc "")
  804.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  805.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  806.                (dest "MovieShop")
  807.       )
  808.    )
  809.  
  810.    (Set DirPath (MovieDirPath))
  811.    (Set DirPathTitle MSG_RESELPATH)
  812.    (Set DirPathHelp  HLP_SETDIRPATH)
  813.    (SetDirPath)
  814.  
  815.    (set AddToMeter   1)
  816.    (IncrementMeter)
  817.  
  818.    (copyfiles
  819.       (prompt (MSG_COPYFILE "ReSelection" DirPath))
  820.       (help MSG_COPYFILE @copyfiles-help)
  821.       (source ("MovieShop:Tools/ReSelection"))
  822.       (dest DirPath)
  823.       (files)
  824.       (infos)
  825.       (optional fail force)
  826.    )
  827.  
  828.    (set AddToMeter   1)
  829.    (IncrementMeter)
  830.  
  831.    (copyfiles
  832.       (prompt (MSG_COPYFILE "ReSel_ON/OFF" DirPath))
  833.       (help MSG_COPYFILE @copyfiles-help)
  834.       (source ("MovieShop:Tools/"))
  835.       (pattern "RESEL_#?.info")
  836.       (dest DirPath)
  837.       (files)
  838.       (infos)
  839.       (optional fail force)
  840.    )
  841.  
  842.    (set AddToMeter   1)
  843.    (IncrementMeter)
  844.  
  845.    (if (= Locale 1)
  846.       (
  847. ;
  848. ; locale is installed
  849. ;
  850.          (if (= language 2)
  851. ;
  852. ; german language
  853. ;
  854.             (if (= (exists "Locale:Catalogs/deutsch") 2)
  855.                (
  856.                   (copyfiles
  857.                      (prompt (MSG_COPYFILE "resel.catalog" "Locale:catalogs/deutsch/"))
  858.                      (help MSG_COPYFILE @copyfiles-help)
  859.                      (source "MovieShop:Tools/resel.catalog")
  860.                      (dest "Locale:Catalogs/deutsch/")
  861.                      (files)
  862.                      (optional fail force)
  863.                   )
  864.                )
  865.                (
  866.                   (copyfiles
  867.                      (prompt (MSG_COPYFILE "resel.catalog" DirPath))
  868.                      (help MSG_COPYFILE @copyfiles-help)
  869.                      (source "MovieShop:Tools/resel.catalog")
  870.                      (dest DirPath)
  871.                      (files)
  872.                      (optional fail force)
  873.                   )
  874.                )
  875.             )
  876.          )
  877.       )
  878.       (
  879.          (if (= language 2)
  880.             (
  881. ;
  882. ; minloc.library will be installed
  883. ;
  884.                (copyfiles
  885.                   (prompt (MSG_COPYFILE resel.catalog DirPath))
  886.                   (source ("MovieShop:Tools/resel.catalog"))
  887.                   (dest DirPath)
  888.                   (files)
  889.                   (optional fail force)
  890.                )
  891.                (set DirPath "Libs:")
  892.                (set CopyLibFilePath "MovieShop:MovieShop")
  893.                (set CopyLibFileName "minloc.library")
  894.                (CopyLibFile)
  895.                (textfile (prompt MSG_CreateMLL)
  896.                          (help HLP_CreateMLL)
  897.                          (dest "ENVARC:MINLOCLANGUAGE")
  898.                          (append "deutsch\n")
  899.                )
  900.             )
  901.          )
  902.       )
  903.    )
  904.  
  905.    (set AddToMeter   1)
  906.    (IncrementMeter)
  907. )
  908.  
  909. (procedure InstallDeveloper
  910. ;
  911. ; ****************************
  912. ; * Install all Developer files
  913. ; ****************************
  914. ;
  915.  
  916.    (set existsrc (getassign "MovieShop" "v"))
  917.    (if (= existsrc "")
  918.       (askdisk (prompt MSG_GETMOVIESHOPDISK)
  919.                (help HLP_GETMOVIESHOPDISK @askdisk-help)
  920.                (dest "MovieShop")
  921.       )
  922.    )
  923.  
  924.    (Set DirPath (tackon @default-dest "MovieShop/Developer"))
  925.    (Set DirPathTitle MSG_DEVELOPERPATH)
  926.    (Set DirPathHelp  HLP_SETDIRPATH)
  927.    (SetDirPath)
  928.  
  929.    (set AddToMeter   1)
  930.    (IncrementMeter)
  931.  
  932. ;
  933. ; install all include files
  934. ;
  935.  
  936.    (copyfiles
  937.       (prompt (MSG_COPYFILE (cat MSG_DEVELOPER "-Dateien") DirPath))
  938.       (help MSG_COPYFILE @copyfiles-help)
  939.       (source ("MovieShop:Developer"))
  940.       (dest DirPath)
  941.       (all)
  942.       (optional fail force)
  943.    )
  944.  
  945.    (set AddToMeter   1)
  946.    (IncrementMeter)
  947.  
  948. )
  949.  
  950. ; *************************************************************************
  951. ; *                             MAIN OF SCRIPT
  952. ; *************************************************************************
  953.  
  954. (onerror
  955.    (exit (quiet))
  956. )
  957.  
  958. (if (< OSVersion 37)
  959.    (abort (MSG_FALSEOSVERSION)))
  960.  
  961. (ChooseParts)
  962.  
  963. ; count number of files to be installed
  964. ;
  965. (if (BITAND Parts 1)
  966.    (set TotalFiles (+ TotalFiles 15)))
  967. (if (BITAND Parts 2)
  968.    (set TotalFiles (+ TotalFiles 24)))
  969. (if (BITAND Parts 4)
  970.    (set TotalFiles (+ TotalFiles 2)))
  971. (if (BITAND Parts 8)
  972.    (set TotalFiles (+ TotalFiles 3)))
  973. (if (BITAND Parts 16)
  974.    (set TotalFiles (+ TotalFiles 3)))
  975. (if (BITAND Parts 32)
  976.    (set TotalFiles (+ TotalFiles 4)))
  977.  
  978. (complete 0)
  979.  
  980. (if (BITAND Parts 1)
  981.    (InstallMovieShop))
  982. (if (BITAND Parts 2)
  983.    (InstallOperator))
  984. (if (BITAND Parts 4)
  985.    (InstallToccata))
  986. (if (BITAND Parts 8)
  987.    (InstallRetina))
  988. (if (BITAND Parts 16)
  989.    (InstallVMInit))
  990. (if (BITAND Parts 32)
  991.    (InstallReSel))
  992.  
  993. (complete 100)
  994.